inherited FrmLocation: TFrmLocation
  Left = 344
  Top = 316
  HelpContext = 1062
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = 'FrmLocation'
  ClientHeight = 209
  ClientWidth = 340
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 24
    Top = 48
    Width = 54
    Height = 13
    Caption = 'Emprunteur'
  end
  object Label2: TLabel [1]
    Left = 24
    Top = 72
    Width = 23
    Height = 13
    Caption = 'Date'
  end
  object Label3: TLabel [2]
    Left = 24
    Top = 144
    Width = 61
    Height = 13
    Caption = 'Commentaire'
  end
  object Label4: TLabel [3]
    Left = 32
    Top = 112
    Width = 83
    Height = 13
    Caption = 'Date retour pr'#233'vu'
  end
  inherited sb: TTBXStatusBar
    Top = 190
    Width = 340
  end
  object dxLayoutControl: TdxLayoutControl [5]
    Left = 0
    Top = 0
    Width = 340
    Height = 164
    Align = alClient
    ParentBackground = True
    TabOrder = 1
    LookAndFeel = dtmSession.dxLayoutWebLookAndFeel
    object cxLkEmprunteur: TcxDBLookupComboBox
      Left = 104
      Top = 10
      Width = 147
      Height = 21
      DataBinding.DataSource = dsFiche
      Properties.ListColumns = <>
      Properties.ListOptions.AnsiSort = True
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ColumnSorting = False
      Properties.ListOptions.GridLines = glVertical
      Properties.ListOptions.ShowHeader = False
      Properties.ReadOnly = False
      Properties.OnNewLookupDisplayText = cxLkEmprunteurPropertiesNewLookupDisplayText
      Style.BorderColor = clHighlight
      Style.BorderStyle = ebsSingle
      Style.HotTrack = False
      Style.ButtonStyle = btsHotFlat
      Style.PopupBorderStyle = epbsSingle
      TabOrder = 0
    end
    object cxLkDateLoc: TcxDBDateEdit
      Left = 104
      Top = 37
      Width = 121
      Height = 21
      DataBinding.DataSource = dsFiche
      Properties.ReadOnly = False
      Style.BorderColor = clHighlight
      Style.BorderStyle = ebsSingle
      Style.HotTrack = False
      Style.ButtonStyle = btsHotFlat
      Style.PopupBorderStyle = epbsSingle
      TabOrder = 1
    end
    object cxLkDateRetour: TcxDBDateEdit
      Left = 104
      Top = 64
      Width = 121
      Height = 21
      DataBinding.DataSource = dsFiche
      Properties.ReadOnly = False
      Style.BorderColor = clHighlight
      Style.BorderStyle = ebsSingle
      Style.HotTrack = False
      Style.ButtonStyle = btsHotFlat
      Style.PopupBorderStyle = epbsSingle
      TabOrder = 2
    end
    object cxEdComment: TcxDBMemo
      Left = 104
      Top = 91
      Width = 219
      Height = 61
      DataBinding.DataSource = dsFiche
      Properties.ReadOnly = False
      Style.BorderColor = clHighlight
      Style.BorderStyle = ebsSingle
      Style.HotTrack = False
      TabOrder = 3
    end
    object dxLayoutControlGroup_Root: TdxLayoutGroup
      ShowCaption = False
      Hidden = True
      ShowBorder = False
      object itmEmprunteur: TdxLayoutItem
        AutoAligns = [aaVertical]
        AlignHorz = ahClient
        Caption = 'Emprunteur'
        Control = cxLkEmprunteur
        ControlOptions.ShowBorder = False
      end
      object itemDatePret: TdxLayoutItem
        AutoAligns = [aaVertical]
        Caption = 'Date pr'#234't'
        Control = cxLkDateLoc
        ControlOptions.ShowBorder = False
      end
      object itemDateRetour: TdxLayoutItem
        AutoAligns = [aaVertical]
        Caption = 'Date retour pr'#233'vue'
        Control = cxLkDateRetour
        ControlOptions.ShowBorder = False
      end
      object itemObs: TdxLayoutItem
        Caption = 'Observation'
        CaptionOptions.AlignVert = tavTop
        Control = cxEdComment
        ControlOptions.ShowBorder = False
      end
    end
    object dxLayoutControlGroup1: TdxLayoutGroup
      Caption = 'New Group'
    end
    object dxLayoutControlGroup2: TdxLayoutGroup
      Caption = 'New Group'
    end
  end
  object TBXDock1: TTBXDock [6]
    Left = 0
    Top = 164
    Width = 340
    Height = 26
    Position = dpBottom
    object TBToolbar1: TTBXToolbar
      Left = 0
      Top = 0
      Align = alBottom
      BorderStyle = bsNone
      Caption = 'TBToolbar'
      DockMode = dmCannotFloatOrChangeDocks
      DockPos = -8
      DockRow = 1
      DragHandleStyle = dhNone
      FullSize = True
      Images = ImageListSmall
      TabOrder = 0
      object TBItem3: TTBXItem
        Action = ActionFermer
        DisplayMode = nbdmImageAndText
      end
      object TBSeparatorItem: TTBXSeparatorItem
      end
      object TBItem1: TTBXItem
        Action = ActionValider
        DisplayMode = nbdmImageAndText
      end
      object TBItem2: TTBXItem
        Action = ActionCancel
        DisplayMode = nbdmImageAndText
      end
      object TBXSeparatorItem1: TTBXSeparatorItem
      end
      object TBXItem1: TTBXItem
        Action = ActionAide
        DisplayMode = nbdmImageAndText
      end
    end
  end
  inherited aclFiche: TActionList
    Left = 64
    Top = 112
    object ActionValider: TAction
      Caption = '&Valider'
      ImageIndex = 1
      OnExecute = ActionValiderExecute
    end
    object ActionCancel: TAction
      Caption = '&Abandonner'
      ImageIndex = 0
      OnExecute = ActionCancelExecute
    end
    object ActionFermer: TAction
      Caption = 'Fermer'
      ImageIndex = 16
      OnExecute = ActionFermerExecute
    end
  end
  inherited ImageListSmall: TImageList
    Left = 128
    Top = 112
  end
  object IBUpdateSQL: TIBUpdateSQL
    Left = 224
    Top = 48
  end
  object qryFiche: TIBQuery
    Database = dtmSession.IBDatabase
    AfterPost = qryFicheAfterPost
    OnNewRecord = qryFicheNewRecord
    OnPostError = qryFichePostError
    BufferChunks = 1000
    CachedUpdates = False
    UpdateObject = IBUpdateSQL
    Left = 184
    Top = 112
  end
  object dsFiche: TDataSource
    DataSet = qryFiche
    Left = 16
    Top = 112
  end
end